home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf / MF-Pascal_0.2 / test3.p < prev    next >
Text File  |  1990-02-23  |  171b  |  14 lines

  1. program main(input,output);
  2. var
  3.   i,j: integer;
  4. Begin
  5.   i := 0;
  6.   repeat
  7.     j := 0;
  8.     repeat
  9.       j := j + 1;
  10.     until j = 10000;
  11.     i := i+1;
  12.   until i = 100;
  13. end.
  14.